10 POKE53280,14:POKE53281,1:PRINT"[144]":GOSUB10000
30 PRINT"    [212]HIS WAS WRITTEN BY  [194]RAD [212]EMPLETON"
35 PRINT" AND  APPEARED IN THE [202]ULY '83 ISSUE OF"
37 PRINT" '[212]HE [212]RANSACTOR'.  [201]T  RESIDES IN  LO-"
40 PRINT" CATIONS  49152-49853 ($[195]000-$[195]2[194][196]) AND"
50 PRINT" IS NOT RELOCATABLE AS IT IS.":PRINT
60 PRINT"    [212]HE  FIRST FIFTEEN BYTES ARE  JUMP"
70 PRINT" VECTORS TO THE  FIVE COMMANDS.   [212]HEY"
75 PRINT" START  AT 41953.   [211]ETTING  A VARIABLE"
80 PRINT" LIKE [194][193] [160]([194]ASE [193]DDRESS)  TO THIS MEANS"
90 PRINT" YOU CAN EASILY ACCESS EACH COMMAND."
95 PRINT"":GOSUB 9000
110 PRINT"[160][201]NITIALIZE - [211][217][211] 49153 OR [211][217][211][160][194][193]":PRINT" [163][163][163][163][163][163][163][163][163][163]"
120 PRINT"[160][198]ORMAT: [211][217][211][160][194][193],[195]0,[195]1,[195]2,[195]3":PRINT
130 PRINT"[160][211]ETS  UP THE  COLOUR  GRAPHICS  SCREEN"
140 PRINT" WITH FOUR COLOURS:"
150 PRINT"[160][160][160][160][195]0:  [194]ACKGROUND"
160 PRINT"[160][160][160][160][195]1:  [193]LTERNATE [194]ACKGROUND #1"
170 PRINT"[160][160][160][160][195]2:  [193]LTERNATE [194]ACKGROUND #2"
180 PRINT"[160][160][160][160][195]3:  [195]OLOUR [206]YBBLES"
190 PRINT"[160][215]HEN  [211][217][211][160][194][193] IS CALLED,  THE SCREEN IS"
200 PRINT"[160]CLEARED TO  THE BACKGROUND COLOUR.  [201]N"
210 PRINT" SUBSEQUENT COMMANDS  THE FOUR  COLOURS"
220 PRINT" ARE REFERENCED BY THE NUMBERS 0 TO 3.":PRINT"":GOSUB9000
300 PRINT" [210]EAD [204]OCATION - [211][217][211] 49156 OR [211][217][211] [194][193]+3":PRINT"[160][163][163][163][163][163][163][163][163][163][163][163][163][163]"
310 PRINT"[160][198]ORMAT:  [211][217][211] [194][193]+3,[210][207][215],[195][207][204]":PRINT
320 PRINT" [210]EADS THE  GIVEN PIXEL.   [212]HE  COLOUR,"
330 PRINT"[160]FROM  0 TO 3, WILL  BE STORED IN LOCA-"
340 PRINT" TION 256 FOR YOU TO [208][197][197][203] AT."
350 PRINT" [211]ET [208]OINT - [211][217][211] 49159 OR [211][217][211] [194][193]+6":PRINT"[160][163][163][163][163][163][163][163][163][163]"
360 PRINT"[160][198]ORMAT:  [211][217][211] [194][193]+6,[210][207][215],[195][207][204],[195][207][204][207][213][210]":PRINT
370 PRINT"[160][211]ETS A PIXEL TO THE SPECIFIED COLOUOR."
380 PRINT"[160][195]HOOSE COLOUR 0 (BACKGROUND COLOUR) TO"
390 PRINT"[160]TURN PIXEL OFF.":PRINT:GOSUB9000
400 PRINT" [210]ESTORE [212]EXT [205]ODE - [211][217][211] 49162 OR"
405 PRINT"[160][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]   [211][217][211][160][194][193]+9"
410 PRINT" [198]ORMAT:  [211][217][211][160][194][193]+9:[208][210][201][206][212] "CHR$(34)"[147]"CHR$(34)
420 PRINT" [199]IVES  BACK THE  NORMAL  TEXT  SCREEN."
430 PRINT"[160][212]HE  SCREEN  WILL  BE FULL OF  GARBAGE"
440 PRINT" FROM THE COLOUR GRAPHICS, SO IT'S BEST"
450 PRINT"[160]TO FOLLOW WITH A CLEAR SCREEN INSTRUC-"
455 PRINT"[160]TION.
460 [153]"":[141]9000
500 [153]" STR$RAW - (null)(null)(null) 49165 OR (null)(null)(null)CLOSEPEEKATN+12":[153]" TAB(TAB(TAB(TAB("
510 [153]"CLOSEASCORMAT:":[153]"CLOSECLOSECLOSECLOSE(null)(null)(null)CLOSEPEEKATN+12,(null)1,LEN1,(null)2,LEN2,LEN(null)(null)(null)(null)(null)"
520 [153]"CLOSESTR$RAWS A LINE  FROM THE POINT  (null)1/LEN1 TO"
530 [153]"CLOSETHE POINT (null)2/LEN2 OF  COLOUR 0 TO 3.  ATNS"
540 [153]"CLOSEBEFORE, COLOUR 0 ERASES THE LINE."
550 [153]"":[141]9000
600 [153]" (null)OADING CHR$RAPHICS (null)OUTINES":[153]"CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
610 [153]"CLOSECLOSECLOSECLOSE(null)O USE  THESE GRAPHICS  ROUTINES IN"
620 [153]" YOUR OWN PROGRAMS,  THEY CAN BE LOADED"
630 [153]" WITH THIS INSTRUCTION AT THE BEGINNING"
640 [153]" OF THE PROGRAM:"
650 [153]"   1 RIGHT$ASCCLOSE(null)VALVAL(null) 49152<>96 (null)LEFT$VAL(null)CLOSE"
655 [153]"     CLOSE (null)(null)ATNSTR$CLOSE"[199](34)"CHR$(null)ATNASCRIGHT$(null)CLOSE(null)(null)(null)(null)"[199](34)",8,1"
660 [153]"":[141]9000
700 [153][163]14)"VALND OF (null)EXT"
8999 [128]
9000 [153][163]14)"(null)RESS (null)VAL(null)(null)(null)(null)"
9010 [161]A$:[139]A$[179][177][199](13)[137]9010
10000 [153]"LOAD CHR$CLOSE(null)CLOSEATNCLOSEASCCLOSERIGHT$CLOSE(null)CLOSECLOSECLOSERIGHT$CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSELENCLOSE(null)CLOSERIGHT$CLOSE(null)CLOSE(null)CLOSE(null)"
10010 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
10020 [142]